home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / karaset.cfg < prev    next >
Text File  |  1991-10-19  |  1KB  |  39 lines
  1. /*********************************************************************
  2. /*
  3. /*  "KARASET.CFG": カラオケEUP 選択用 外部マクロコマンド
  4. /*                                                       By TaroPYON
  5. /*
  6. /*  　TIFF画像データのパスを知りたいため…
  7. /*  　KARA_TIFにEUP の拡張子を.TIFにしたファイル名がセットされる
  8. /*
  9.  
  10. main {
  11.     TMP = ""
  12.     file_select("TMP","カラオケ EUP 選択",-1, "", "*.eup",0)
  13.     if ( VAL ! 0 )
  14.     {   return
  15.     }
  16.     if ( TMP = "" )
  17.     {   return
  18.     }
  19.     strupr("KARA_EUP",TMP)
  20.     instr(KARA_EUP,".EUP")
  21.     POS = VAL;
  22.     if ( POS > 0 )
  23.     {   /* ".EUP"が含まれている */
  24.         strmid("KARA_TIF",KARA_EUP,0,POS)
  25.         KARA_TIF =  "\(KARA_TIF).TIF"
  26. #       echo("    EUP \(KARA_EUP)\n")
  27. #       echo("    TIF \(KARA_TIF)\n")
  28. #       wait(60)
  29. #       wind_close()
  30.  
  31.         _HEPLAY_TYPE = 4;
  32.         bgm_set(KARA_EUP)
  33.         bgm_mode(0)
  34.         /* キーボードログ登録＆実行
  35.         /*   [PF4] [H] [PF7] [↓] [実行] */
  36.         key("\\k6000H\\k6300\\k5000\\r")
  37.     }
  38. }
  39.